From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 2 Feb 2012 11:07:55 +0000 (+0000)
Subject: gnus-group.el (gnus-group-read-ephemeral-group): Don't add a new address parameter... 
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~982
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=68f661bd1d86d8e0b55f452725361d65adbd9881;p=emacs.git

gnus-group.el (gnus-group-read-ephemeral-group): Don't add a new address parameter if one already exists (bug#9676).
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 26893eb7483..623990d0b93 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2012-02-02  Lars Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-group.el (gnus-group-read-ephemeral-group): Don't add a new
+	address parameter if one already exists (bug#9676).
+
 	* gnus-msg.el (gnus-summary-mail-forward): Respect the process marks,
 	not the prefix, as documented (bug#10689).
 
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 60522839a9a..f97d9a69eae 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -2295,10 +2295,15 @@ Return the name of the group if selection was successful."
     (gnus-no-server))
   (when (stringp method)
     (setq method (gnus-server-to-method method)))
-  (setq method
-	`(,(car method) ,(concat (cadr method) "-ephemeral")
-	  (,(intern (format "%s-address" (car method))) ,(cadr method))
-	  ,@(cddr method)))
+  (let ((address-slot
+	 (intern (format "%s-address" (car method)))))
+    (setq method
+	  (if (assq address-slot (cddr method))
+	      `(,(car method) ,(concat (cadr method) "-ephemeral")
+		,@(cddr method))
+	    `(,(car method) ,(concat (cadr method) "-ephemeral")
+	      (,address-slot ,(cadr method))
+	      ,@(cddr method)))))
   (let ((group (if (gnus-group-foreign-p group) group
 		 (gnus-group-prefixed-name (gnus-group-real-name group)
 					   method))))